www.gusucode.com > 动网论坛Dvbbs v8.3 > 动网论坛Dvbbs v8.3\code\源程序\ActiveOnline.asp

    <!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/dv_clsother.asp"-->
<%
Response.Expires = -9999
Response.AddHeader "pragma", "no-cache"
Response.AddHeader "cache-ctrol", "no-cache"
Dim server_v1
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v1=Lcase(server_v1)

If not (instr(server_v1,"activeonline.asp")>0) and Request.servervariables("REQUEST_METHOD") = "POST" Then
	Dvbbs.Stats=Request("state")
	Dvbbs.ActiveOnline1()
%>
var allonline=<%=MyBoardOnline.Forum_Online%>;
<%if Dvbbs.BoardId=0 Then%>
var useronline=<%=MyBoardOnline.Forum_UserOnline%>;
var guestonline=<%=MyBoardOnline.Forum_GuestOnline%>;
<%
else
%>
var useronline=<%=MyBoardOnline.Board_UserOnline%>;
var guestonline=<%=MyBoardOnline.Board_GuestOnline%>;
<%
End If
%>
<%
End If
Dvbbs.PageEnd()
%>